(setup-czech-environment): Call latin-2's setup function.

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 02708ecf59db90f2db4472721f8a68c0662adc77..69de792330fd3724cecdef2741ecea3ca90d3b86 100644 (file)
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -31,8 +31,8 @@
 (defun setup-czech-environment ()
   "Setup multilingual environment (MULE) for Czech."
   (interactive)
-  (setup-8-bit-environment "Czech" 'latin-iso8859-2 "czech")
-  (load "latin-2"))
+  (funcall (get-language-info "Latin-2" 'setup-function))
+  (setq default-input-method "czech"))
 
 (set-language-info-alist
  "Czech" '((setup-function . setup-czech-environment)